Mac Magazin/MacEasy 19/Mac Magazin and MacEasy Magazine CD - Issue 19.iso/Grafik & Text & Film/Quark XTensions/Freeware Xtensions/XPress Scripts 1.0/Lock⁄Unlock Guides/Lock⁄Unlock Guides

Text File | 1994-08-10 | 979b | 28 lines

tell application "QuarkXPress 3.3"
    activate
    if document 1 exists then
        tell document 1
            if lock guides is true then
                copy (display dialog "Guides are currently locked." & return & ¬
                    "OK to unlock guides?" buttons {"Cancel", "Unlock"} default button 2 with icon 2000) to x
                do updates
                if button returned of x is "Unlock" then
                    set lock guides to false
                else if button returned of x is "Cancel" then
                end if
            else if lock guides is false then
                copy (display dialog "Guides are currently unlocked." & return & ¬
                    "OK to lock guides?" buttons {"Cancel", "Lock"} default button 2 with icon 2000) to x
                do updates
                if button returned of x is "Lock" then
                    set lock guides to true
                else if button returned of x is "Cancel" then
                end if
            else
                beep
                display dialog "This script requires an" & return & "open QuarkXPress document." buttons "OK" default button 1 with icon 1
                do updates
            end if
        end tell
    end if
end tell